0 REM SAVE"@:SIGNAL",13
1 BN$="[194] S1.*":REM BILD  NAME
2 SN$="[194] S2.*":REM MUSIK NAME
3 LW=PEEK(186):POKE53280,0:POKE53281,0
9 IFZ=0THENZ=1:DIMA$(20):POKE53265,11:PRINT"[147][144]"
10 IFZ=1THENZ=2:GOTO20
11 IFZ=2THENZ=3:GOTO90
12 IFZ=3THENZ=4:SYS49152:GOTO100
15 Z=1
20 FORA=49154TO49317:READI:POKEA,I:NEXT
21 V=53248:POKEV+21,0:POKE2042,13
22 FORN=0TO62:READQ:POKE832+N,Q:NEXT
24 POKEV+41,12:POKEV+28,255:POKEV+37,11:POKEV+38,15
70 :
72 LOADBN$,LW,1
73 END
90 :
93 GOTO400:SYS49154
94 LOADSN$,LW,1
95 END
100 :
103 X=0:POKEV+5,220
104 FORNI=0TO750:POKEV+4,X:X=X+0.1:NEXT
105 FORZA=0TO1
106 FORZB=0TO6.28STEP0.05:ZX=ZB:ZY=ZB+1.57
107 POKEV+4,75+(50*SIN(ZX)):POKEV+5,170+(50*SIN(ZY))
111 NEXT:NEXT:PRINT"[147]"
120 POKEV+21,0:POKE53265,PEEK(53265)AND223
121 POKE53272,(PEEK(53272)AND240)OR4
122 PRINT"[147]";:POKE53281,FC:POKE646,CC:GOTO1000
200 DATA173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
220 DATA4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
240 DATA40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
260 DATA114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
280 DATA173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
300 DATA24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
320 DATA162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
340 DATA142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
360 DATA192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230
380 DATA252,230,253,208,227,230,254,76,122,192,134,252,132,251,96,134
390 DATA254,132,253,96
400 :
401 PRINT"[147]":F(1)=1:F(2)=15:F(3)=12:F(4)=11:F(5)=6:POKE53265,27
404 A$="SIGNAL INS ALL":GOSUB420:FORZA=0TO1000:NEXT:PRINT""
405 A$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163]":GOSUB420:FORZA=0TO1000:NEXT:PRINT"[147]"
406 A$="GESENDET VON":GOSUB420:FORZA=0TO900:NEXT:PRINT"[147]"
407 A$="WELLE: ERDBALL":GOSUB420:FORZA=0TO2000:NEXT:PRINT"[147]"
408 A$="AUF DER":GOSUB420:FORZA=0TO1000:NEXT:PRINT"[147]"
409 A$="[158]OUT OF ORDERIA":GOSUB420:FORZA=0TO1000:NEXT:PRINT"[147]"
410 A$="2OO2":GOSUB420:FORZA=0TO900:NEXT:PRINT"[147]"
411 A$="UND EINEN":GOSUB420:FORZA=0TO900:NEXT:PRINT"[147]"
412 A$="GUTEN RUTSCH":GOSUB420:FORZA=0TO1000:NEXT:PRINT"[147]"
413 A$="IN EIN ERFOLGREICHES":GOSUB420:FORZA=0TO1500:NEXT:PRINT"[147]"
414 A$="2003":GOSUB420:FORZA=0TO1000:NEXT:PRINT"[147]"
415 GOTO430
420 FORZA=1TOLEN(A$)/2:B$=LEFT$(A$,ZA)+RIGHT$(A$,ZA):POKE646,F((LEN(A$)/2)/ZA)
421 PRINT"[145]"TAB((40-LEN(B$))/2);B$:NEXT:PRINT"[145]"TAB((40-LEN(A$))/2);A$:RETURN
430 SYS49154:POKE53281,1:POKEV+21,4:POKE53280,1:POKE53280,0
431 POKE53281,0
432 LOADSN$,LW,1
1000 PRINT"[147]"
1001 A$(1)="ALS DER MENSCHLICHE EINDRINGER BEWUST "
1002 A$(2)="WERD DAS ER DAS REICH DES ANGSTAN-"
1003 A$(3)="GREIFENDES GESPENST BETRIT,WILL ER"
1004 A$(4)="SOFORT FLIEHEN BEVOR VERBANNEN ZU SEIN"
1005 A$(5)="BEI DIE LEBENDIGE TOTE WO VIELE VOR-"
1006 A$(6)="GAENGER KRANKSINNIG GEWORDEN SIND."
1007 A$(7)="SIE MUSSTEN SCHNELL HANDELN, DEN WENN "
1008 A$(8)="ER EINMAHL DER SCHLUESSEL VOM KELLER"
1009 A$(9)="HAT,LIEGT SEINE FREIHEIT AM ENDE EINER"
1010 A$(10)="IRGARTEN VON GAENGE UND SIE VERLIEREN "
1011 A$(11)="NICHT NUR EINE SEELE DEN SIE ZU IHREN "
1012 A$(12)="MAKABEREN SAMMLUNG ZAEHLEN KOENNEN, "
1013 A$(13)="SONDERN EINE WIRD LEBENDIG UND ENT- "
1014 A$(14)="KOMMT. DENKEN SIE NICHT DAS ES SO EIN-"
1015 A$(15)="FACH IST IN DIE UNHEIMLICHE DUNKEL- "
1016 A$(16)="HEIT VON DAS GESPENSTERHAUS UBERALL "
1017 A$(17)="SIND GESPENSTER FRESSENDE FLEDERMAUSE "
1018 A$(18)="UND SLANGEN HEIMLICH VERSTECKT UM ZU"
1019 A$(19)="ZU SCHAPPEN WHERENT IHRE JAGT AUF "
1020 A$(20)="SEELEN...                   [ENDE]"
1021 PRINT"[147][144]    WIR SENDEN EIN SIGNAL INS ALL..."
1022 PRINT" UND HOFFEN, DASS UNS IN EINER ANDEREN"
1023 PRINT"      WELT JEMAND BESSER VERSTEHT"
1024 PRINT"  ALS AUF DIESEM SELTSAMEN PLANETEN,"
1025 PRINT"         DEN WIR ERDE NENNEN."
1026 PRINT"   ZUR INDIKATION DES GEHIRNVOLUMENS"
1027 PRINT"UNSERER MITMENSCHEN HABEN WIR NOCH EINEN"
1028 PRINT" AUSZUG AUS DER ANLEITUNG ZU DEM SPIEL"
1029 PRINT"             ";CHR$(34);"GEISTERHAUS";CHR$(34);"."
1030 PRINT" EIN C=64-SPIEL VON RONALD SPENCER SOFT."
1031 PRINT"   DAS GANZE IM ORIGINALEN WORTLAUT"
1032 PRINT"        VIEL SPASS BEIM LESEN !"
1034 PRINT"             WELLE: ERDBALL";
1040 FORZA=0TO999:POKE55296+ZA,1:IFPEEK(1024+ZA)<>32THEN GOSUB 60000
1041 NEXT:FORZA=0TO1000:NEXT:POKE53280,1:POKE53281,1:PRINT"[147]":POKE53281,0
1042 POKE53280,0:PRINT"        GEISTERHAUS AB 8 JAHRE"
1043 FORZ=1TO20:GOSUB1050:PRINT:FORZX=0TO3000:NEXT:NEXT
1049 GOTO1049
1050 FORZA=1TOLEN(A$(Z))/2:B$=LEFT$(A$(Z),ZA)+RIGHT$(A$(Z),ZA)
1051 PRINT"[145]"TAB((40-LEN(B$))/2);B$:NEXT:PRINT"[145]"TAB((40-LEN(A$(Z)))/2);A$(Z)
1052 RETURN
1999 END
50000 REM SPRITE-MOND
50001 DATA0,0,0,0,85,0,1,91,192,5,110,112,5,169,176
50002 DATA21,170,188,21,170,188,22,169,188,22,234,188,23,154,188,23
50003 DATA154,188,22,106,252,22,171,156,22,170,124,6,170,176,6,106
50004 DATA176,1,170,192,0,175,0,0,0,0,0,0,0,0,0,0
55010 END
60000 FORZB=0TO20:NEXT:RETURN